home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 5 / Amiga Plus Sonderheft 1996 #5.iso / programme / cybergfx / cyberupdate2.18 / tools / cyberbackup-uninstall next >
Text File  |  1996-02-26  |  10KB  |  252 lines
  1. ;********************************************************************************
  2. ;    ______        __                  ______                     __  __   __
  3. ;   / __  /       / /                 / __  /                    / /  \ \ / /
  4. ;  / /  -'__  __ / /___ ______ _____ / /_ -'_____ ______ ______ / /__  \ \ /
  5. ; / /     \ \/ // __  // ____// .__// // \ / .__// __  // __  // __  / /  /
  6. ;/ /___    \  // /_/ // __/_ / /   / /_/ // /   / __  // /_/ // / / / / \ \
  7. ;\____/    / //_____//_____//_/   /_____//_/   /_/ /_// ____//_/ /_/ /_/ \_\
  8. ;         /_/                                        / /
  9. ;
  10. ; $VER: 1.3 (Feb-26-96)
  11. ;                                                   /_/
  12. ; CyberBacuUp-UnInstall ©1995,1996 by Robert C. Reiswig
  13. ;
  14. ; This was done for Frank Mariak for use with the
  15. ; Commercial release of CyberGraphX from Phase5, Germany
  16. ;
  17. ; Suggestions or problems: rcr@netcom.com
  18. ;--------------------------------------------------------------------------------
  19. ;
  20. ;********************************************************************************
  21. (if (= @user-level 0) (set @user-level 2))
  22.  
  23.  
  24. ;********************************************************************************
  25. ; Read All System information
  26. ;********************************************************************************
  27. (set lan 1)
  28. (if (> (exists ("env:Language")) 0)
  29.   (if (= "deutsch" (getenv "Language")) (set lan 0) )
  30. )
  31.  
  32. ;********************************************************************************
  33. ;English Information
  34. ;********************************************************************************
  35. (set #whattodo "\nWhat would you like todo?\n")
  36. (set #backupcyber " BackUp CyberGraphX")
  37. (set #removecyber " UnInstall CyberGraphX")
  38. (set #whatpartsb "\nWhat parts of CyberGraphX would you like to BackUp?\n")
  39. (set #libs " Libraries")
  40. (set #monitor " Monitor File")
  41. (set #env " ENV: Vars")
  42. (set #envarc " ENVARC: Vars")
  43. (set #whereback "Where would you like to BackUp the selected CyberGraphX Parts?  If a directory Called 'CyberGraphX' is not there one will be created.")
  44. (set #libsbacked1 "\n\nThe CyberGraphX Libraries have been backed-up to:\n\n")
  45. (set #libsbacked2 "\n\n\n\nThe libraries have been renamed to:\n\n<filename>+<version.revision>") 
  46. (set #gettingcheck "\n\nGetting Checksum for:\n\n")
  47. (set #monbacked1 "\n\nThe CyberGraphX Monitor File(s) have been backed-up to:\n\n")
  48. (set #monbacked2 "\n\n\n\nThe Monitor File(s) have been renamed to:\n\n<filename>+<checksum>") 
  49. (set #backenv "\n\nBacking-Up CyberGraphX ENV: File(s)")
  50. (set #envbacked1 "\n\nThe CyberGraphX ENV: File(s) have been backed-up to:\n\n")
  51. (set #backenvarc "\n\nBacking-Up CyberGraphX ENVARC: File(s)")
  52. (set #envarcbacked1 "\n\nThe CyberGraphX ENVARC: File(s) have been backed-up to:\n\n")
  53.  
  54. (set #notthere "\n\nCurrently UnInstall is not implemented!")
  55. ;********************************************************************************
  56. ;German Information
  57. ;********************************************************************************
  58. (if (= LAN 0)
  59. (
  60. (set #whattodo "\nWas möchten Sie tun ?\n")
  61. (set #backupcyber " Sichere CyberGraphX")
  62. (set #removecyber " Entferne CyberGraphX")
  63. (set #whatpartsb "\nWelche Teile von CyberGraphX möchten Sie sichern?\n")
  64. (set #libs " Libraries")
  65. (set #monitor " Monitor Datei(en)")
  66. (set #env " ENV: Variablen")
  67. (set #envarc " ENVARC: Variablen")
  68. (set #whereback "Wohin wollen Sie die gewählten CyberGraphX Teile sichern?  Wenn ein Verzeichnis 'CyberGraphX' nicht vorhanden ist, wird es erstellt.")
  69. (set #libsbacked1 "\n\nDie CyberGraphX Libraries wurden gesichert nach:\n\n")
  70. (set #libsbacked2 "\n\n\n\nDie Libraries wurden umbenannt in:\n\n<filename>+<version.revision>") 
  71. (set #gettingcheck "\n\nErzeuge Prüfsumme für:\n\n")
  72. (set #monbacked1 "\n\nDie CyberGraphX Monitor Datei(en) wurden gesichert nach:\n\n")
  73. (set #monbacked2 "\n\n\n\nDie Monitor Datei(en) wurden umbenannt in:\n\n<filename>+<checksum>") 
  74. (set #backenv "\n\nSichere CyberGraphX ENV: Datei(en)")
  75. (set #envbacked1 "\n\nDie CyberGraphX ENV: Datei(en) wurden gesichert nach:\n\n")
  76. (set #backenvarc "\n\nSichere CyberGraphX ENVARC: Datei(en)")
  77. (set #envarcbacked1 "\n\nDie CyberGraphX ENVARC: Datei(en) wurden gesichert nach:\n\n")
  78.  
  79. (set #notthere "\n\nDie Option Deinstallieren ist nicht implementiert!")
  80. )
  81. )
  82.  
  83.  
  84. ;********************************************************************************
  85. ; What to do?
  86. ;********************************************************************************
  87. (set ja (askoptions   (choices #backupcyber #removecyber)
  88.                        (prompt #whattodo)
  89.                       (help   #whattodo)
  90.                          (default 1)
  91.     )
  92. )
  93.  
  94. ;********************************************************************************
  95. ; BackUp
  96. ;********************************************************************************
  97. (if (IN ja 0)
  98. (
  99.  
  100. (set todo (askoptions   (choices #libs #monitor #env #envarc)
  101.                           (prompt #whatpartsb)
  102.                         (help   #whatpartsb)
  103.                            (default 15)
  104.     )
  105. )
  106.  
  107. (if (<> todo 0)
  108.  (
  109.    (set whereback (askdir (prompt #whereback)
  110.                       (help   #whereback)
  111.                           (default "SYS:Storage")
  112.               )
  113.    )
  114.  
  115.    (set wherelibs "libs:")
  116.    (set wheremon  "devs:monitors")   
  117.    
  118.    (if (IN todo 0)
  119.       (
  120.          (set libsdest (tackon whereback "CyberGraphX"))
  121.          (if (< (exists libsdest) 2)  (makedir libsdest (infos)) )
  122.          (set libsdest (tackon whereback "CyberGraphX/libs"))
  123.          (if (< (exists libsdest) 2)  (makedir libsdest (infos)) )
  124.  
  125.          (procedure BackUpLib
  126.           (if (> (exists (tackon wherelibs #lib)) 0)
  127.            (
  128.              (set vernum1 (getversion (tackon wherelibs #lib)) )
  129.              (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  130.  
  131.              (copyfiles (source (tackon wherelibs #lib))
  132.                                 (dest libsdest)
  133.                                 (newname (cat #lib ver1 "." rev1))
  134.              )
  135.            )
  136.           )
  137.          ) 
  138.  
  139.          (set #lib "cybergraphics.library")  (BackUpLib)
  140.          (set #lib "cyberintuition.library") (BackUpLib)
  141.          (set #lib "cyberlayers.library")    (BackUpLib)
  142.          (set #lib "vilintuisup.library")    (BackUpLib)
  143.          (set #lib "gtlayout.library")       (BackUpLib)
  144.  
  145.          (message (cat #libsbacked1 libsdest #libsbacked2))
  146.       )
  147.     )
  148.  
  149.  
  150.    (if (IN todo 1)
  151.       (
  152.          (set mondest (tackon whereback "CyberGraphX"))
  153.          (if (< (exists mondest) 2)  (makedir mondest (infos)) )
  154.          (set mondest (tackon whereback "CyberGraphX/Devs"))
  155.          (if (< (exists mondest) 2)  (makedir mondest (infos)) )
  156.          (set mondest (tackon whereback "CyberGraphX/Devs/Monitors"))
  157.          (if (< (exists mondest) 2)  (makedir mondest (infos)) )
  158.            
  159.          (procedure BackUpMon
  160.           (if (> (exists (tackon wheremon #mon)) 0)
  161.             (
  162.              (working (cat #gettingcheck (tackon wheremon #mon) )) 
  163.              (set sum (getsum (tackon wheremon #mon)) )
  164.              (if (< sum 0) (set sum (* sum -1)) )
  165.  
  166.               (copyfiles (source (tackon wheremon #mon))
  167.                                  (dest mondest)
  168.                                  (newname (cat #mon "." sum))
  169.                                  (infos)
  170.               )
  171.             )
  172.           )
  173.          ) 
  174.  
  175.          (set #mon "Spectrum")    (BackUpMon)
  176.          (set #mon "Piccolo")     (BackUpMon)
  177.          (set #mon "Domino")      (BackUpMon)
  178.          (set #mon "RetinaZ3")    (BackUpMon)
  179.          (set #mon "PiccoSD64")   (BackUpMon)
  180.          (set #mon "A2410")       (BackUpMon)
  181.          (set #mon "Picasso")     (BackUpMon)
  182.          (set #mon "CyberVision") (BackUpMon)
  183.          (set #mon "DraCoAltais") (BackUpMon)
  184.          (set #mon "Merlin")      (BackUpMon)
  185.               
  186.          (message (cat #monbacked1 mondest #monbacked2))
  187.       )
  188.     )
  189.  
  190.  
  191.    (if (IN todo 2)
  192.       (
  193.          (set envdest (tackon whereback "CyberGraphX"))
  194.          (if (< (exists envdest) 2)  (makedir envdest (infos)) )
  195.          (set envdest (tackon whereback "CyberGraphX/Env"))
  196.          (if (< (exists envdest) 2)  (makedir envdest (infos)) )
  197.          (set envdest (tackon whereback "CyberGraphX/Env/cybergraphics"))
  198.          (if (< (exists envdest) 2)  (makedir envdest (infos)) )
  199.                  
  200.          (working #backenv) 
  201.          (set copycmd (cat "copy env:cybergraphics to \"" envdest "\" all"))  
  202.          (run copycmd)
  203.               
  204.          (message (cat #envbacked1 envdest))
  205.       )
  206.    )
  207.  
  208.    (if (IN todo 3)
  209.       (
  210.          (set envarcdest (tackon whereback "CyberGraphX"))
  211.          (if (< (exists envarcdest) 2)  (makedir envarcdest (infos)) )
  212.          (set envarcdest (tackon whereback "CyberGraphX/EnvArc"))
  213.          (if (< (exists envarcdest) 2)  (makedir envarcdest (infos)) )
  214.          (set envarcdest (tackon whereback "CyberGraphX/EnvArc/cybergraphics"))
  215.          (if (< (exists envarcdest) 2)  (makedir envarcdest (infos)) )
  216.                  
  217.          (working #backenvarc) 
  218.          (set copycmd (cat "copy envarc:cybergraphics to \"" envarcdest "\" all"))  
  219.          (run copycmd)
  220.               
  221.          (message (cat #envarcbacked1 envarcdest))
  222.       )
  223.    )    
  224.  
  225.  
  226.  )
  227. )
  228.  
  229.  
  230. )
  231. )
  232.  
  233.  
  234. ;********************************************************************************
  235. ; UnInstall
  236. ;********************************************************************************
  237.  
  238. (if (IN ja 1)
  239. (
  240.  
  241.  (message #notthere)
  242.  
  243. )
  244. )
  245.  
  246.  
  247. ;********************************************************************************
  248. ; END
  249. ;********************************************************************************
  250. (set @default-dest (cat whereback "CyberGraphX"))
  251. (exit "CyberBackUp-UnInstall")
  252.